/ BBS in a Box 15 / BBS in a box XV-1.iso / AMUG Info / Apple Lic. / ResEdit 2.1.1 Examples.sit / ResEdit 2.1.1 Examples / CExamples / Source / XXXX.Edit.c

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 58 58 58 58 2e 45 | 64 69 74 2e 63 00 00 00 |..XXXX.E|dit.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 24 cc 00 | 00 01 de a4 a0 ed 90 a4 |.....$..|........|
|00000060| a0 ed 90 00 00 06 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 03 3b 00 00 |........|.....;..|
|00000080| 2f 2a 0d 46 69 6c 65 20 | 52 65 73 58 58 58 58 45 |/*.File |ResXXXXE|
|00000090| 64 2e 63 0d 0d 43 6f 70 | 79 72 69 67 68 74 20 41 |d.c..Cop|yright A|
|000000a0| 70 70 6c 65 20 43 6f 6d | 70 75 74 65 72 2c 20 49 |pple Com|puter, I|
|000000b0| 6e 63 2e 20 31 39 38 35 | 2d 31 39 39 30 0d 41 6c |nc. 1985|-1990.Al|
|000000c0| 6c 20 72 69 67 68 74 73 | 20 72 65 73 65 72 76 65 |l rights| reserve|
|000000d0| 64 2e 0d 2a 2f 0d 0d 23 | 69 6e 63 6c 75 64 65 09 |d..*/..#|include.|
|000000e0| 3c 74 79 70 65 73 2e 68 | 3e 0d 23 69 6e 63 6c 75 |<types.h|>.#inclu|
|000000f0| 64 65 09 3c 6d 65 6d 6f | 72 79 2e 68 3e 0d 23 69 |de.<memo|ry.h>.#i|
|00000100| 6e 63 6c 75 64 65 09 3c | 6d 65 6e 75 73 2e 68 3e |nclude.<|menus.h>|
|00000110| 0d 23 69 6e 63 6c 75 64 | 65 09 3c 72 65 73 6f 75 |.#includ|e.<resou|
|00000120| 72 63 65 73 2e 68 3e 0d | 0d 23 69 6e 63 6c 75 64 |rces.h>.|.#includ|
|00000130| 65 09 22 52 65 73 45 64 | 2e 68 22 0d 0d 23 64 65 |e."ResEd|.h"..#de|
|00000140| 66 69 6e 65 09 09 77 69 | 6e 64 6f 77 57 69 64 74 |fine..wi|ndowWidt|
|00000150| 68 09 09 09 33 30 30 0d | 23 64 65 66 69 6e 65 09 |h...300.|#define.|
|00000160| 09 77 69 6e 64 6f 77 48 | 65 69 67 68 74 09 09 31 |.windowH|eight..1|
|00000170| 30 30 0d 23 64 65 66 69 | 6e 65 09 09 73 69 7a 65 |00.#defi|ne..size|
|00000180| 4f 66 58 58 58 58 52 65 | 73 6f 75 72 63 65 09 31 |OfXXXXRe|source.1|
|00000190| 30 0d 0d 74 79 70 65 64 | 65 66 20 73 74 72 75 63 |0..typed|ef struc|
|000001a0| 74 20 72 58 58 58 58 52 | 65 63 0d 09 7b 0d 09 50 |t rXXXXR|ec..{..P|
|000001b0| 61 72 65 6e 74 48 61 6e | 64 6c 65 09 66 61 74 68 |arentHan|dle.fath|
|000001c0| 65 72 3b 09 09 09 2f 2a | 20 42 61 63 6b 20 70 74 |er;.../*| Back pt|
|000001d0| 72 20 74 6f 20 64 61 64 | 20 2a 2f 0d 09 53 74 72 |r to dad| */..Str|
|000001e0| 32 35 35 09 09 09 6e 61 | 6d 65 3b 09 09 09 2f 2a |255...na|me;.../*|
|000001f0| 20 54 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 69 | The nam|e of thi|
|00000200| 73 20 65 64 69 74 6f 72 | 20 2a 2f 0d 09 57 69 6e |s editor| */..Win|
|00000210| 64 6f 77 50 74 72 09 09 | 77 69 6e 64 3b 09 09 09 |dowPtr..|wind;...|
|00000220| 2f 2a 20 54 68 69 73 20 | 76 69 65 77 27 73 20 77 |/* This |view's w|
|00000230| 69 6e 64 6f 77 20 2a 2f | 0d 09 42 6f 6f 6c 65 61 |indow */|..Boolea|
|00000240| 6e 09 09 09 72 65 62 75 | 69 6c 64 3b 09 09 2f 2a |n...rebu|ild;../*|
|00000250| 20 53 65 74 20 74 72 75 | 65 20 69 66 20 74 68 69 | Set tru|e if thi|
|00000260| 6e 67 73 20 68 61 76 65 | 20 63 68 61 6e 67 65 64 |ngs have| changed|
|00000270| 20 2a 2f 0d 09 42 6f 6f | 6c 65 61 6e 09 09 09 72 | */..Boo|lean...r|
|00000280| 65 73 57 61 73 6e 74 4c | 6f 61 64 65 64 3b 09 2f |esWasntL|oaded;./|
|00000290| 2a 20 54 52 55 45 20 69 | 66 20 74 68 65 20 72 65 |* TRUE i|f the re|
|000002a0| 73 6f 75 72 63 65 20 73 | 68 6f 75 6c 64 20 62 65 |source s|hould be|
|000002b0| 20 72 65 6c 65 61 73 65 | 64 20 77 68 65 6e 20 74 | release|d when t|
|000002c0| 68 65 20 77 69 6e 64 6f | 77 20 69 73 20 63 6c 6f |he windo|w is clo|
|000002d0| 73 65 64 2e 20 2a 2f 0d | 09 75 6e 73 69 67 6e 65 |sed. */.|.unsigne|
|000002e0| 64 20 63 68 61 72 09 77 | 69 6e 64 6f 77 54 79 70 |d char.w|indowTyp|
|000002f0| 65 3b 0d 09 52 65 73 54 | 79 70 65 09 09 09 74 68 |e;..ResT|ype...th|
|00000300| 65 52 65 73 54 79 70 65 | 3b 09 09 2f 2a 20 54 79 |eResType|;../* Ty|
|00000310| 70 65 20 6f 66 20 74 68 | 65 20 72 65 73 6f 75 72 |pe of th|e resour|
|00000320| 63 65 20 62 65 69 6e 67 | 65 64 69 74 65 64 2e 20 |ce being|edited. |
|00000330| 2a 2f 0d 09 73 68 6f 72 | 74 09 09 09 74 68 65 52 |*/..shor|t...theR|
|00000340| 65 73 46 69 6c 65 3b 09 | 09 2f 2a 20 54 68 65 20 |esFile;.|./* The |
|00000350| 68 6f 6d 65 20 72 65 73 | 66 69 6c 65 20 6f 66 20 |home res|file of |
|00000360| 74 68 65 20 77 69 6e 64 | 6f 77 2e 20 2a 2f 0d 09 |the wind|ow. */..|
|00000370| 73 68 6f 72 74 09 09 09 | 63 6f 64 65 52 65 73 49 |short...|codeResI|
|00000380| 44 3b 09 09 2f 2a 20 52 | 65 73 6f 75 72 63 65 20 |D;../* R|esource |
|00000390| 49 44 20 6f 66 20 74 68 | 65 20 52 53 53 43 20 72 |ID of th|e RSSC r|
|000003a0| 65 73 6f 75 72 63 65 20 | 63 6f 6e 74 61 69 6e 69 |esource |containi|
|000003b0| 6e 67 20 74 68 65 20 70 | 69 63 6b 65 72 20 6f 72 |ng the p|icker or|
|000003c0| 20 65 64 69 74 6f 72 2e | 20 2a 2f 0d 09 48 61 6e | editor.| */..Han|
|000003d0| 64 6c 65 09 09 09 68 58 | 58 58 58 3b 09 09 09 2f |dle...hX|XXX;.../|
|000003e0| 2a 20 54 68 65 20 72 65 | 73 6f 75 72 63 65 20 77 |* The re|source w|
|000003f0| 65 20 61 72 65 20 77 6f | 72 6b 69 6e 67 20 6f 6e |e are wo|rking on|
|00000400| 20 2a 2f 0d 09 7d 20 72 | 58 58 58 58 52 65 63 3b | */..} r|XXXXRec;|
|00000410| 0d 0d 74 79 70 65 64 65 | 66 20 72 58 58 58 58 52 |..typede|f rXXXXR|
|00000420| 65 63 09 2a 72 58 58 58 | 58 50 74 72 3b 0d 74 79 |ec.*rXXX|XPtr;.ty|
|00000430| 70 65 64 65 66 20 72 58 | 58 58 58 50 74 72 09 2a |pedef rX|XXXPtr.*|
|00000440| 72 58 58 58 58 48 61 6e | 64 6c 65 3b 0d 0d 2f 2a |rXXXXHan|dle;../*|
|00000450| 20 46 75 6e 63 74 69 6f | 6e 20 70 72 6f 74 6f 74 | Functio|n protot|
|00000460| 79 70 65 73 2e 20 2a 2f | 0d 70 61 73 63 61 6c 20 |ypes. */|.pascal |
|00000470| 76 6f 69 64 20 44 6f 4d | 65 6e 75 28 73 68 6f 72 |void DoM|enu(shor|
|00000480| 74 20 6d 65 6e 75 2c 20 | 73 68 6f 72 74 20 69 74 |t menu, |short it|
|00000490| 65 6d 2c 20 72 58 58 58 | 58 48 61 6e 64 6c 65 20 |em, rXXX|XHandle |
|000004a0| 6d 79 58 58 58 58 29 3b | 0d 0d 2f 2a 2d 20 2d 09 |myXXXX);|../*- -.|
|000004b0| 2d 20 20 2d 20 20 2d 20 | 2d 20 20 2d 20 20 2d 20 |-  -  - |-  -  - |
|000004c0| 20 2d 20 2d 20 20 2d 20 | 20 2d 09 2d 20 2d 20 20 | - -  - | -.- -  |
|000004d0| 2d 09 2d 20 20 2d 20 2d | 09 2d 20 20 2d 20 20 2d |-.-  - -|.-  -  -|
|000004e0| 20 2d 20 20 2d 20 20 2d | 2a 2f 0d 0d 2f 2a 20 46 | -  -  -|*/../* F|
|000004f0| 69 78 20 75 70 20 74 68 | 65 20 77 69 6e 64 6f 77 |ix up th|e window|
|00000500| 20 6e 61 6d 65 20 61 6e | 64 20 74 69 74 6c 65 20 | name an|d title |
|00000510| 66 6f 72 20 6f 75 72 20 | 77 69 6e 64 6f 77 2e 20 |for our |window. |
|00000520| 2a 2f 0d 76 6f 69 64 20 | 47 65 74 4e 61 6d 65 41 |*/.void |GetNameA|
|00000530| 6e 64 54 69 74 6c 65 28 | 53 74 72 69 6e 67 50 74 |ndTitle(|StringPt|
|00000540| 72 20 77 69 6e 64 6f 77 | 54 69 74 6c 65 2c 53 74 |r window|Title,St|
|00000550| 72 69 6e 67 50 74 72 20 | 77 69 6e 64 6f 77 4e 61 |ringPtr |windowNa|
|00000560| 6d 65 2c 48 61 6e 64 6c | 65 20 74 68 69 6e 67 29 |me,Handl|e thing)|
|00000570| 0d 09 7b 0d 09 73 74 72 | 63 70 79 28 77 69 6e 64 |..{..str|cpy(wind|
|00000580| 6f 77 54 69 74 6c 65 2c | 22 5c 70 58 58 58 58 22 |owTitle,|"\pXXXX"|
|00000590| 29 3b 0d 09 53 65 74 45 | 54 69 74 6c 65 28 74 68 |);..SetE|Title(th|
|000005a0| 69 6e 67 2c 77 69 6e 64 | 6f 77 54 69 74 6c 65 29 |ing,wind|owTitle)|
|000005b0| 3b 0d 09 73 74 72 6e 63 | 70 79 28 77 69 6e 64 6f |;..strnc|py(windo|
|000005c0| 77 4e 61 6d 65 2c 77 69 | 6e 64 6f 77 54 69 74 6c |wName,wi|ndowTitl|
|000005d0| 65 2c 2a 77 69 6e 64 6f | 77 54 69 74 6c 65 20 2b |e,*windo|wTitle +|
|000005e0| 20 31 29 3b 09 2f 2a 20 | 41 64 64 20 31 20 66 6f | 1);./* |Add 1 fo|
|000005f0| 72 20 74 68 65 20 6c 65 | 6e 67 74 68 20 62 79 74 |r the le|ngth byt|
|00000600| 65 20 2a 2f 0d 09 7d 0d | 0d 2f 2a 2d 20 2d 20 20 |e */..}.|./*- -  |
|00000610| 2d 20 20 2d 09 2d 20 2d | 20 20 2d 09 2d 20 20 2d |-  -.- -|  -.-  -|
|00000620| 20 2d 09 2d 20 20 2d 20 | 20 2d 20 2d 20 20 2d 20 | -.-  - | - -  - |
|00000630| 20 2d 20 20 2d 20 2d 20 | 20 2d 20 20 2d 09 2d 20 | -  - - | -  -.- |
|00000640| 2d 20 20 2d 09 2d 2a 2f | 0d 0d 70 61 73 63 61 6c |-  -.-*/|..pascal|
|00000650| 20 76 6f 69 64 20 45 64 | 69 74 42 69 72 74 68 28 | void Ed|itBirth(|
|00000660| 48 61 6e 64 6c 65 20 74 | 68 69 6e 67 2c 50 61 72 |Handle t|hing,Par|
|00000670| 65 6e 74 48 61 6e 64 6c | 65 20 64 61 64 29 0d 09 |entHandl|e dad)..|
|00000680| 7b 0d 09 72 58 58 58 58 | 48 61 6e 64 6c 65 09 09 |{..rXXXX|Handle..|
|00000690| 6d 79 58 58 58 58 3b 0d | 09 57 69 6e 64 6f 77 50 |myXXXX;.|.WindowP|
|000006a0| 74 72 09 09 6d 79 57 69 | 6e 64 6f 77 3b 0d 09 53 |tr..myWi|ndow;..S|
|000006b0| 74 72 32 35 35 09 09 09 | 77 69 6e 64 6f 77 54 69 |tr255...|windowTi|
|000006c0| 74 6c 65 2c 77 69 6e 64 | 6f 77 4e 61 6d 65 3b 0d |tle,wind|owName;.|
|000006d0| 0d 09 2f 2a 20 50 72 65 | 70 61 72 65 20 77 69 6e |../* Pre|pare win|
|000006e0| 64 6f 77 20 74 69 74 6c | 65 20 61 6e 64 20 72 65 |dow titl|e and re|
|000006f0| 71 75 65 73 74 20 63 72 | 65 61 74 69 6f 6e 20 6f |quest cr|eation o|
|00000700| 66 20 61 20 6e 65 77 20 | 77 69 6e 64 6f 77 20 2a |f a new |window *|
|00000710| 2f 0d 09 47 65 74 4e 61 | 6d 65 41 6e 64 54 69 74 |/..GetNa|meAndTit|
|00000720| 6c 65 28 77 69 6e 64 6f | 77 54 69 74 6c 65 2c 20 |le(windo|wTitle, |
|00000730| 77 69 6e 64 6f 77 4e 61 | 6d 65 2c 20 74 68 69 6e |windowNa|me, thin|
|00000740| 67 29 3b 0d 09 6d 79 57 | 69 6e 64 6f 77 20 3d 20 |g);..myW|indow = |
|00000750| 45 64 69 74 6f 72 57 69 | 6e 64 53 65 74 75 70 28 |EditorWi|ndSetup(|
|00000760| 6e 6f 44 69 61 6c 6f 67 | 2c 20 6e 6f 43 6f 6c 6f |noDialog|, noColo|
|00000770| 72 2c 20 77 69 6e 64 6f | 77 57 69 64 74 68 2c 20 |r, windo|wWidth, |
|00000780| 77 69 6e 64 6f 77 48 65 | 69 67 68 74 2c 20 77 69 |windowHe|ight, wi|
|00000790| 6e 64 6f 77 54 69 74 6c | 65 2c 20 77 69 6e 64 6f |ndowTitl|e, windo|
|000007a0| 77 4e 61 6d 65 2c 20 74 | 72 75 65 2c 20 52 65 73 |wName, t|rue, Res|
|000007b0| 45 64 49 44 28 29 2c 20 | 64 61 64 29 3b 0d 0d 09 |EdID(), |dad);...|
|000007c0| 2f 2a 20 49 66 20 77 65 | 20 67 6f 74 20 61 20 6e |/* If we| got a n|
|000007d0| 65 77 20 77 69 6e 64 6f | 77 2c 20 74 68 65 6e 20 |ew windo|w, then |
|000007e0| 73 74 61 72 74 20 75 70 | 20 74 68 65 20 65 64 69 |start up| the edi|
|000007f0| 74 6f 72 20 2a 2f 0d 09 | 69 66 20 28 6d 79 57 69 |tor */..|if (myWi|
|00000800| 6e 64 6f 77 20 21 3d 20 | 6e 69 6c 29 0d 09 09 7b |ndow != |nil)...{|
|00000810| 0d 09 09 2f 2a 20 54 68 | 69 73 20 77 61 73 20 63 |.../* Th|is was c|
|00000820| 61 6c 6c 65 64 20 76 69 | 61 20 61 20 4e 45 57 2c |alled vi|a a NEW,|
|00000830| 20 73 6f 20 6d 61 6b 65 | 20 61 20 6e 65 77 20 72 | so make| a new r|
|00000840| 65 73 6f 75 72 63 65 2e | 20 2a 2f 0d 09 09 69 66 |esource.| */...if|
|00000850| 20 28 47 65 74 48 61 6e | 64 6c 65 53 69 7a 65 28 | (GetHan|dleSize(|
|00000860| 74 68 69 6e 67 29 20 3d | 3d 20 30 4c 29 0d 09 09 |thing) =|= 0L)...|
|00000870| 09 46 69 78 48 61 6e 64 | 28 73 69 7a 65 4f 66 58 |.FixHand|(sizeOfX|
|00000880| 58 58 58 52 65 73 6f 75 | 72 63 65 2c 74 68 69 6e |XXXResou|rce,thin|
|00000890| 67 29 3b 0d 0d 09 09 2f | 2a 20 47 65 74 20 6d 65 |g);..../|* Get me|
|000008a0| 6d 6f 72 79 20 66 6f 72 | 20 61 6e 64 20 68 61 6e |mory for| and han|
|000008b0| 64 6c 65 20 74 6f 20 6f | 75 72 20 69 6e 73 74 61 |dle to o|ur insta|
|000008c0| 6e 63 65 20 72 65 63 6f | 72 64 20 2a 2f 0d 09 09 |nce reco|rd */...|
|000008d0| 6d 79 58 58 58 58 20 3d | 20 28 72 58 58 58 58 48 |myXXXX =| (rXXXXH|
|000008e0| 61 6e 64 6c 65 29 4e 65 | 77 48 61 6e 64 6c 65 28 |andle)Ne|wHandle(|
|000008f0| 73 69 7a 65 6f 66 28 72 | 58 58 58 58 52 65 63 29 |sizeof(r|XXXXRec)|
|00000900| 29 3b 0d 09 09 69 66 20 | 28 4d 65 6d 45 72 72 6f |);...if |(MemErro|
|00000910| 72 28 29 20 21 3d 20 6e | 6f 45 72 72 29 0d 09 09 |r() != n|oErr)...|
|00000920| 09 7b 0d 09 09 09 43 6c | 6f 73 65 57 69 6e 64 6f |.{....Cl|oseWindo|
|00000930| 77 28 6d 79 57 69 6e 64 | 6f 77 29 3b 0d 09 09 09 |w(myWind|ow);....|
|00000940| 57 69 6e 64 52 65 74 75 | 72 6e 28 6d 79 57 69 6e |WindRetu|rn(myWin|
|00000950| 64 6f 77 29 3b 09 09 09 | 09 2f 2a 20 4d 61 72 6b |dow);...|./* Mark|
|00000960| 20 74 68 65 20 77 69 6e | 64 6f 77 20 72 65 63 6f | the win|dow reco|
|00000970| 72 64 20 61 73 20 62 65 | 69 6e 67 20 61 76 61 69 |rd as be|ing avai|
|00000980| 6c 61 62 6c 65 20 2a 2f | 0d 09 09 09 72 65 74 75 |lable */|....retu|
|00000990| 72 6e 3b 0d 09 09 09 7d | 0d 0d 09 09 2f 2a 20 50 |rn;....}|..../* P|
|000009a0| 75 74 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 20 61 |ut infor|mation a|
|000009b0| 62 6f 75 74 20 74 68 69 | 73 20 69 6e 63 61 72 6e |bout thi|s incarn|
|000009c0| 61 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 65 64 69 |ation of| the edi|
|000009d0| 74 6f 72 20 61 6e 64 20 | 74 68 65 20 77 69 6e 64 |tor and |the wind|
|000009e0| 6f 77 20 69 74 20 69 73 | 20 2a 2f 0d 09 09 2f 2a |ow it is| */.../*|
|000009f0| 20 73 65 72 76 69 6e 67 | 20 69 6e 74 6f 20 6f 75 | serving| into ou|
|00000a00| 72 20 72 65 63 6f 72 64 | 2e 28 61 6c 77 61 79 73 |r record|.(always|
|00000a10| 20 70 61 73 73 65 64 20 | 61 72 6f 75 6e 64 20 69 | passed |around i|
|00000a20| 6e 20 74 68 65 20 68 61 | 6e 64 6c 65 20 6d 79 58 |n the ha|ndle myX|
|00000a30| 58 58 58 29 2e 09 20 2a | 2f 0d 0d 09 09 28 2a 6d |XXX).. *|/....(*m|
|00000a40| 79 58 58 58 58 29 2d 3e | 66 61 74 68 65 72 20 3d |yXXXX)->|father =|
|00000a50| 20 64 61 64 3b 0d 09 09 | 73 74 72 6e 63 70 79 28 | dad;...|strncpy(|
|00000a60| 28 2a 6d 79 58 58 58 58 | 29 2d 3e 6e 61 6d 65 2c |(*myXXXX|)->name,|
|00000a70| 20 77 69 6e 64 6f 77 4e | 61 6d 65 2c 20 77 69 6e | windowN|ame, win|
|00000a80| 64 6f 77 4e 61 6d 65 5b | 30 5d 20 2b 20 31 29 3b |dowName[|0] + 1);|
|00000a90| 09 2f 2a 20 41 64 64 20 | 31 20 66 6f 72 20 74 68 |./* Add |1 for th|
|00000aa0| 65 20 6c 65 6e 67 74 68 | 20 62 79 74 65 20 2a 2f |e length| byte */|
|00000ab0| 0d 09 09 28 2a 6d 79 58 | 58 58 58 29 2d 3e 77 69 |...(*myX|XXX)->wi|
|00000ac0| 6e 64 20 3d 20 6d 79 57 | 69 6e 64 6f 77 3b 0d 09 |nd = myW|indow;..|
|00000ad0| 09 28 2a 6d 79 58 58 58 | 58 29 2d 3e 72 65 62 75 |.(*myXXX|X)->rebu|
|00000ae0| 69 6c 64 20 3d 20 66 61 | 6c 73 65 3b 0d 09 09 28 |ild = fa|lse;...(|
|00000af0| 2a 6d 79 58 58 58 58 29 | 2d 3e 72 65 73 57 61 73 |*myXXXX)|->resWas|
|00000b00| 6e 74 4c 6f 61 64 65 64 | 20 3d 20 21 57 61 73 49 |ntLoaded| = !WasI|
|00000b10| 74 4c 6f 61 64 65 64 28 | 29 3b 0d 09 09 28 2a 6d |tLoaded(|);...(*m|
|00000b20| 79 58 58 58 58 29 2d 3e | 77 69 6e 64 6f 77 54 79 |yXXXX)->|windowTy|
|00000b30| 70 65 20 3d 20 65 64 69 | 74 6f 72 57 69 6e 64 6f |pe = edi|torWindo|
|00000b40| 77 3b 0d 09 09 28 2a 6d | 79 58 58 58 58 29 2d 3e |w;...(*m|yXXXX)->|
|00000b50| 74 68 65 52 65 73 54 79 | 70 65 20 3d 20 27 58 58 |theResTy|pe = 'XX|
|00000b60| 58 58 27 3b 0d 09 09 28 | 2a 6d 79 58 58 58 58 29 |XX';...(|*myXXXX)|
|00000b70| 2d 3e 74 68 65 52 65 73 | 46 69 6c 65 20 3d 20 48 |->theRes|File = H|
|00000b80| 6f 6d 65 52 65 73 46 69 | 6c 65 28 74 68 69 6e 67 |omeResFi|le(thing|
|00000b90| 29 3b 0d 09 09 28 2a 6d | 79 58 58 58 58 29 2d 3e |);...(*m|yXXXX)->|
|00000ba0| 63 6f 64 65 52 65 73 49 | 44 20 3d 20 52 65 73 45 |codeResI|D = ResE|
|00000bb0| 64 49 44 28 29 3b 0d 09 | 09 28 2a 6d 79 58 58 58 |dID();..|.(*myXXX|
|00000bc0| 58 29 2d 3e 68 58 58 58 | 58 20 3d 20 74 68 69 6e |X)->hXXX|X = thin|
|00000bd0| 67 3b 0d 09 09 09 09 0d | 09 09 2f 2a 20 4c 65 74 |g;......|../* Let|
|00000be0| 20 74 68 65 20 6d 61 69 | 6e 20 70 72 6f 67 72 61 | the mai|n progra|
|00000bf0| 6d 20 6b 6e 6f 77 20 77 | 68 6f 20 69 73 20 74 6f |m know w|ho is to|
|00000c00| 20 6d 61 6e 61 67 65 20 | 74 68 69 73 20 77 69 6e | manage |this win|
|00000c10| 64 6f 77 20 62 79 20 67 | 69 76 69 6e 67 20 69 74 |dow by g|iving it|
|00000c20| 20 62 6f 74 68 09 2a 2f | 0d 09 09 2f 2a 20 6f 75 | both.*/|.../* ou|
|00000c30| 72 20 72 65 73 6f 75 72 | 63 65 20 49 44 20 6e 75 |r resour|ce ID nu|
|00000c40| 6d 62 65 72 20 61 6e 64 | 20 6f 75 72 20 69 6e 73 |mber and| our ins|
|00000c50| 74 61 6e 63 65 20 72 65 | 63 6f 72 64 20 68 61 6e |tance re|cord han|
|00000c60| 64 6c 65 2e 09 09 2a 2f | 0d 09 09 28 28 57 69 6e |dle...*/|...((Win|
|00000c70| 64 6f 77 50 65 65 6b 29 | 6d 79 57 69 6e 64 6f 77 |dowPeek)|myWindow|
|00000c80| 29 2d 3e 72 65 66 43 6f | 6e 20 3d 20 28 6c 6f 6e |)->refCo|n = (lon|
|00000c90| 67 29 6d 79 58 58 58 58 | 3b 0d 0d 09 09 2f 2a 20 |g)myXXXX|;..../* |
|00000ca0| 53 65 74 20 75 70 20 61 | 6e 79 20 6d 65 6e 75 73 |Set up a|ny menus|
|00000cb0| 2c 76 69 65 77 73 2c 20 | 65 74 63 2e 20 66 6f 72 |,views, |etc. for|
|00000cc0| 20 74 68 69 73 20 77 69 | 6e 64 6f 77 20 68 65 72 | this wi|ndow her|
|00000cd0| 65 2e 20 2a 2f 0d 09 09 | 7d 0d 09 7d 0d 0d 2f 2a |e. */...|}..}../*|
|00000ce0| 2d 20 2d 20 20 2d 20 20 | 2d 09 2d 20 2d 20 20 2d |- -  -  |-.- -  -|
|00000cf0| 09 2d 20 20 2d 20 2d 09 | 2d 20 20 2d 20 20 2d 20 |.-  - -.|-  -  - |
|00000d00| 2d 20 20 2d 20 20 2d 20 | 20 2d 20 2d 20 20 2d 20 |-  -  - | - -  - |
|00000d10| 20 2d 09 2d 20 2d 20 20 | 2d 09 2d 2a 2f 0d 0d 2f | -.- -  |-.-*/../|
|00000d20| 2a 20 4e 6f 74 20 75 73 | 65 64 20 66 6f 72 20 65 |* Not us|ed for e|
|00000d30| 64 69 74 6f 72 73 2e 20 | 2a 2f 0d 70 61 73 63 61 |ditors. |*/.pasca|
|00000d40| 6c 20 76 6f 69 64 20 50 | 69 63 6b 42 69 72 74 68 |l void P|ickBirth|
|00000d50| 28 52 65 73 54 79 70 65 | 20 74 2c 20 50 61 72 65 |(ResType| t, Pare|
|00000d60| 6e 74 48 61 6e 64 6c 65 | 20 64 61 64 29 0d 09 7b |ntHandle| dad)..{|
|00000d70| 0d 23 70 72 61 67 6d 61 | 09 75 6e 75 73 65 64 20 |.#pragma|.unused |
|00000d80| 28 74 2c 20 64 61 64 29 | 0d 09 7d 0d 0d 2f 2a 2d |(t, dad)|..}../*-|
|00000d90| 20 2d 20 20 2d 20 20 2d | 09 2d 20 2d 20 20 2d 09 | -  -  -|.- -  -.|
|00000da0| 2d 20 20 2d 20 2d 09 2d | 20 20 2d 20 20 2d 20 2d |-  - -.-|  -  - -|
|00000db0| 20 20 2d 20 20 2d 20 20 | 2d 20 2d 20 20 2d 20 20 |  -  -  |- -  -  |
|00000dc0| 2d 09 2d 20 2d 20 20 2d | 09 2d 2a 2f 0d 0d 70 61 |-.- -  -|.-*/..pa|
|00000dd0| 73 63 61 6c 20 76 6f 69 | 64 20 44 6f 45 76 65 6e |scal voi|d DoEven|
|00000de0| 74 28 45 76 65 6e 74 52 | 65 63 6f 72 64 20 2a 65 |t(EventR|ecord *e|
|00000df0| 76 74 2c 20 72 58 58 58 | 58 48 61 6e 64 6c 65 20 |vt, rXXX|XHandle |
|00000e00| 6d 79 58 58 58 58 29 0d | 09 7b 0d 09 50 6f 69 6e |myXXXX).|.{..Poin|
|00000e10| 74 09 09 6d 6f 75 73 65 | 50 6f 69 6e 74 3b 0d 0d |t..mouse|Point;..|
|00000e20| 09 42 75 62 62 6c 65 55 | 70 28 28 48 61 6e 64 6c |.BubbleU|p((Handl|
|00000e30| 65 29 6d 79 58 58 58 58 | 29 3b 09 09 2f 2a 20 4d |e)myXXXX|);../* M|
|00000e40| 6f 76 65 20 6f 75 72 20 | 69 74 65 6d 20 75 70 20 |ove our |item up |
|00000e50| 69 6e 20 6d 65 6d 6f 72 | 79 20 2a 2f 0d 09 48 4c |in memor|y */..HL|
|00000e60| 6f 63 6b 28 28 48 61 6e | 64 6c 65 29 6d 79 58 58 |ock((Han|dle)myXX|
|00000e70| 58 58 29 3b 09 09 09 2f | 2a 20 4c 6f 63 6b 20 69 |XX);.../|* Lock i|
|00000e80| 74 20 64 6f 77 6e 20 2a | 2f 0d 0d 09 2f 2a 20 48 |t down *|/.../* H|
|00000e90| 61 6e 64 6c 65 20 65 76 | 65 6e 74 20 70 61 73 73 |andle ev|ent pass|
|00000ea0| 65 64 20 74 6f 20 75 73 | 20 62 79 20 6d 61 69 6e |ed to us| by main|
|00000eb0| 20 70 72 6f 67 72 61 6d | 2e 20 20 4a 75 73 74 20 | program|.  Just |
|00000ec0| 6c 69 6b 65 20 61 20 27 | 72 65 61 6c 27 20 65 76 |like a '|real' ev|
|00000ed0| 65 6e 74 20 6c 6f 6f 70 | 2c 20 65 78 63 65 70 74 |ent loop|, except|
|00000ee0| c9 09 2a 2f 0d 09 2f 2a | 20 74 68 65 72 65 20 69 |..*/../*| there i|
|00000ef0| 73 20 6e 6f 20 6c 6f 6f | 70 20 61 6e 64 20 77 65 |s no loo|p and we|
|00000f00| 20 64 6f 6e 27 74 20 68 | 61 76 65 20 74 6f 20 68 | don't h|ave to h|
|00000f10| 61 6e 64 6c 65 20 61 73 | 20 6d 75 63 68 20 62 65 |andle as| much be|
|00000f20| 63 61 75 73 65 20 74 68 | 65 20 6d 61 69 6e 20 70 |cause th|e main p|
|00000f30| 72 6f 67 72 61 6d 09 2a | 2f 0d 09 2f 2a 20 77 69 |rogram.*|/../* wi|
|00000f40| 6c 6c 20 64 6f 20 61 6c | 6c 20 74 68 65 20 73 74 |ll do al|l the st|
|00000f50| 75 66 66 20 74 68 61 74 | 20 64 6f 65 73 6e 27 74 |uff that| doesn't|
|00000f60| 20 61 70 70 6c 79 20 74 | 6f 20 75 73 2e 09 09 09 | apply t|o us....|
|00000f70| 09 09 2a 2f 0d 0d 09 53 | 65 74 50 6f 72 74 28 28 |..*/...S|etPort((|
|00000f80| 2a 6d 79 58 58 58 58 29 | 2d 3e 77 69 6e 64 29 3b |*myXXXX)|->wind);|
|00000f90| 09 09 2f 2a 20 53 65 74 | 20 74 68 65 20 70 6f 72 |../* Set| the por|
|00000fa0| 74 20 74 6f 20 6f 75 72 | 20 77 69 6e 64 6f 77 20 |t to our| window |
|00000fb0| 2a 2f 0d 0d 09 73 77 69 | 74 63 68 20 28 65 76 74 |*/...swi|tch (evt|
|00000fc0| 2d 3e 77 68 61 74 29 0d | 09 09 7b 0d 09 09 63 61 |->what).|..{...ca|
|00000fd0| 73 65 20 6d 6f 75 73 65 | 44 6f 77 6e 3a 0d 09 09 |se mouse|Down:...|
|00000fe0| 09 6d 6f 75 73 65 50 6f | 69 6e 74 20 3d 20 65 76 |.mousePo|int = ev|
|00000ff0| 74 2d 3e 77 68 65 72 65 | 3b 09 2f 2a 20 50 6f 69 |t->where|;./* Poi|
|00001000| 6e 74 20 61 74 20 77 68 | 69 63 68 20 74 68 65 20 |nt at wh|ich the |
|00001010| 65 76 65 6e 74 20 6f 63 | 63 75 72 65 64 20 2a 2f |event oc|cured */|
|00001020| 0d 09 09 09 47 6c 6f 62 | 61 6c 54 6f 4c 6f 63 61 |....Glob|alToLoca|
|00001030| 6c 28 26 6d 6f 75 73 65 | 50 6f 69 6e 74 29 3b 09 |l(&mouse|Point);.|
|00001040| 2f 2a 20 43 6f 6e 76 65 | 72 74 20 65 76 65 6e 74 |/* Conve|rt event|
|00001050| 20 6c 6f 63 61 74 69 6f | 6e 20 74 6f 20 6c 6f 63 | locatio|n to loc|
|00001060| 61 6c 20 63 6f 6f 72 64 | 73 20 2a 2f 0d 09 09 09 |al coord|s */....|
|00001070| 62 72 65 61 6b 3b 09 09 | 09 09 09 09 2f 2a 20 44 |break;..|..../* D|
|00001080| 6f 20 61 6e 79 20 73 70 | 65 63 69 61 6c 20 6d 6f |o any sp|ecial mo|
|00001090| 75 73 65 20 64 6f 77 6e | 20 70 72 6f 63 65 73 73 |use down| process|
|000010a0| 69 6e 67 20 68 65 72 65 | 2e 20 2a 2f 0d 09 0d 09 |ing here|. */....|
|000010b0| 09 63 61 73 65 20 61 63 | 74 69 76 61 74 65 45 76 |.case ac|tivateEv|
|000010c0| 74 3a 0d 09 09 09 69 66 | 20 28 65 76 74 2d 3e 6d |t:....if| (evt->m|
|000010d0| 6f 64 69 66 69 65 72 73 | 20 26 20 61 63 74 69 76 |odifiers| & activ|
|000010e0| 65 46 6c 61 67 29 0d 09 | 09 09 09 7b 0d 09 09 09 |eFlag)..|...{....|
|000010f0| 09 41 62 6c 65 4d 65 6e | 75 28 65 64 69 74 4d 65 |.AbleMen|u(editMe|
|00001100| 6e 75 2c 20 65 64 69 74 | 4e 6f 6e 65 29 3b 0d 09 |nu, edit|None);..|
|00001110| 09 09 09 2f 2a 20 44 6f | 20 61 6e 79 20 61 63 74 |.../* Do| any act|
|00001120| 69 76 61 74 65 20 70 72 | 6f 63 65 73 73 69 6e 67 |ivate pr|ocessing|
|00001130| 20 68 65 72 65 20 28 73 | 75 63 68 20 61 73 20 69 | here (s|uch as i|
|00001140| 6e 73 65 72 74 69 6e 67 | 20 61 20 6d 65 6e 75 29 |nserting| a menu)|
|00001150| 20 2a 2f 0d 09 09 09 09 | 7d 0d 09 09 09 65 6c 73 | */.....|}....els|
|00001160| 65 0d 09 09 09 09 7b 0d | 09 09 09 09 2f 2a 20 44 |e.....{.|..../* D|
|00001170| 6f 20 61 6e 79 20 64 65 | 61 63 74 69 76 61 74 65 |o any de|activate|
|00001180| 20 70 72 6f 63 65 73 73 | 69 6e 67 20 68 65 72 65 | process|ing here|
|00001190| 20 28 73 75 63 68 20 61 | 73 20 64 65 6c 65 74 69 | (such a|s deleti|
|000011a0| 6e 67 20 61 20 6d 65 6e | 75 29 2e 20 2a 2f 0d 09 |ng a men|u). */..|
|000011b0| 09 09 09 7d 0d 09 09 09 | 62 72 65 61 6b 3b 0d 09 |...}....|break;..|
|000011c0| 0d 09 09 63 61 73 65 20 | 75 70 64 61 74 65 45 76 |...case |updateEv|
|000011d0| 74 3a 0d 09 09 09 2f 2a | 20 44 6f 20 74 68 65 20 |t:..../*| Do the |
|000011e0| 61 70 70 72 6f 70 72 69 | 61 74 65 20 75 70 64 61 |appropri|ate upda|
|000011f0| 74 65 20 70 72 6f 63 65 | 73 73 69 6e 67 20 68 65 |te proce|ssing he|
|00001200| 72 65 2e 20 20 52 65 6d | 65 6d 62 65 72 20 74 68 |re.  Rem|ember th|
|00001210| 61 74 20 42 65 67 69 6e | 55 70 64 61 74 65 20 68 |at Begin|Update h|
|00001220| 61 73 20 61 6c 72 65 61 | 64 79 20 62 65 65 6e 20 |as alrea|dy been |
|00001230| 63 61 6c 6c 65 64 2e 20 | 2a 2f 0d 09 09 09 50 61 |called. |*/....Pa|
|00001240| 69 6e 74 52 65 63 74 28 | 26 28 2a 6d 79 58 58 58 |intRect(|&(*myXXX|
|00001250| 58 29 2d 3e 77 69 6e 64 | 2d 3e 70 6f 72 74 52 65 |X)->wind|->portRe|
|00001260| 63 74 29 3b 0d 09 09 09 | 62 72 65 61 6b 3b 0d 09 |ct);....|break;..|
|00001270| 0d 09 09 63 61 73 65 20 | 6b 65 79 44 6f 77 6e 3a |...case |keyDown:|
|00001280| 0d 09 09 09 2f 2a 20 44 | 6f 20 61 6e 79 20 6b 65 |..../* D|o any ke|
|00001290| 79 20 70 72 6f 63 65 73 | 73 69 6e 67 20 68 65 72 |y proces|sing her|
|000012a0| 65 2e 20 2a 2f 0d 09 09 | 09 69 66 20 28 28 65 76 |e. */...|.if ((ev|
|000012b0| 74 2d 3e 6d 65 73 73 61 | 67 65 20 26 20 63 68 61 |t->messa|ge & cha|
|000012c0| 72 43 6f 64 65 4d 61 73 | 6b 29 20 3d 3d 20 64 65 |rCodeMas|k) == de|
|000012d0| 6c 65 74 65 4b 65 79 29 | 09 2f 2a 20 43 6f 6e 76 |leteKey)|./* Conv|
|000012e0| 65 72 74 20 74 68 65 20 | 64 65 6c 65 74 65 20 63 |ert the |delete c|
|000012f0| 68 61 72 61 63 74 65 72 | 20 69 6e 74 6f 20 61 20 |haracter| into a |
|00001300| 63 6c 65 61 72 20 63 6f | 6d 6d 61 6e 64 2e 20 2a |clear co|mmand. *|
|00001310| 2f 0d 09 09 09 09 7b 0d | 09 09 09 09 44 6f 4d 65 |/.....{.|....DoMe|
|00001320| 6e 75 28 65 64 69 74 4d | 65 6e 75 2c 20 63 6c 65 |nu(editM|enu, cle|
|00001330| 61 72 49 74 65 6d 2c 20 | 6d 79 58 58 58 58 29 3b |arItem, |myXXXX);|
|00001340| 0d 09 09 09 7d 0d 09 09 | 62 72 65 61 6b 3b 0d 0d |....}...|break;..|
|00001350| 09 63 61 73 65 20 6e 75 | 6c 6c 45 76 65 6e 74 3a |.case nu|llEvent:|
|00001360| 0d 09 09 2f 2a 20 44 6f | 20 61 6e 79 20 6e 75 6c |.../* Do| any nul|
|00001370| 6c 20 65 76 65 6e 74 20 | 70 72 6f 63 65 73 73 69 |l event |processi|
|00001380| 6e 67 20 68 65 72 65 20 | 28 73 75 63 68 20 61 73 |ng here |(such as|
|00001390| 20 62 6c 69 6e 6b 69 6e | 67 20 61 20 63 75 72 73 | blinkin|g a curs|
|000013a0| 6f 72 29 2e 09 2a 2f 0d | 09 09 62 72 65 61 6b 3b |or)..*/.|..break;|
|000013b0| 0d 09 09 7d 0d 09 48 55 | 6e 6c 6f 63 6b 28 28 48 |...}..HU|nlock((H|
|000013c0| 61 6e 64 6c 65 29 6d 79 | 58 58 58 58 29 3b 0d 09 |andle)my|XXXX);..|
|000013d0| 7d 0d 09 0d 2f 2a 2d 20 | 2d 20 20 2d 20 20 2d 09 |}.../*- |-  -  -.|
|000013e0| 2d 20 2d 20 20 2d 09 2d | 20 20 2d 20 2d 09 2d 20 |- -  -.-|  - -.- |
|000013f0| 20 2d 20 20 2d 20 2d 20 | 20 2d 20 20 2d 20 20 2d | -  - - | -  -  -|
|00001400| 20 2d 20 20 2d 20 20 2d | 09 2d 20 2d 20 20 2d 09 | -  -  -|.- -  -.|
|00001410| 2d 2a 2f 0d 0d 70 61 73 | 63 61 6c 20 76 6f 69 64 |-*/..pas|cal void|
|00001420| 20 44 6f 49 6e 66 6f 55 | 70 64 61 74 65 28 73 68 | DoInfoU|pdate(sh|
|00001430| 6f 72 74 20 6f 6c 64 49 | 44 2c 20 73 68 6f 72 74 |ort oldI|D, short|
|00001440| 20 6e 65 77 49 44 2c 20 | 72 58 58 58 58 48 61 6e | newID, |rXXXXHan|
|00001450| 64 6c 65 20 6d 79 58 58 | 58 58 29 0d 09 7b 0d 09 |dle myXX|XX)..{..|
|00001460| 50 61 72 65 6e 74 48 61 | 6e 64 6c 65 20 09 66 61 |ParentHa|ndle .fa|
|00001470| 74 68 65 72 20 3d 20 28 | 2a 6d 79 58 58 58 58 29 |ther = (|*myXXXX)|
|00001480| 2d 3e 66 61 74 68 65 72 | 3b 0d 09 53 74 72 32 35 |->father|;..Str25|
|00001490| 35 09 09 09 77 69 6e 64 | 6f 77 54 69 74 6c 65 2c |5...wind|owTitle,|
|000014a0| 77 69 6e 64 6f 77 4e 61 | 6d 65 3b 0d 0d 09 48 4c |windowNa|me;...HL|
|000014b0| 6f 63 6b 28 28 48 61 6e | 64 6c 65 29 6d 79 58 58 |ock((Han|dle)myXX|
|000014c0| 58 58 29 3b 0d 09 2f 2a | 20 53 69 6e 63 65 20 6f |XX);../*| Since o|
|000014d0| 75 72 20 49 44 20 68 61 | 73 20 63 68 61 6e 67 65 |ur ID ha|s change|
|000014e0| 64 2c 20 77 65 20 6e 65 | 65 64 20 74 6f 20 63 68 |d, we ne|ed to ch|
|000014f0| 61 6e 67 65 20 6f 75 72 | 20 77 69 6e 64 6f 77 20 |ange our| window |
|00001500| 74 69 74 6c 65 20 2a 2f | 0d 09 47 65 74 4e 61 6d |title */|..GetNam|
|00001510| 65 41 6e 64 54 69 74 6c | 65 28 77 69 6e 64 6f 77 |eAndTitl|e(window|
|00001520| 54 69 74 6c 65 2c 20 77 | 69 6e 64 6f 77 4e 61 6d |Title, w|indowNam|
|00001530| 65 2c 20 28 48 61 6e 64 | 6c 65 29 28 2a 6d 79 58 |e, (Hand|le)(*myX|
|00001540| 58 58 58 29 2d 3e 68 58 | 58 58 58 29 3b 0d 09 47 |XXX)->hX|XXX);..G|
|00001550| 65 74 57 69 6e 64 6f 77 | 54 69 74 6c 65 28 77 69 |etWindow|Title(wi|
|00001560| 6e 64 6f 77 54 69 74 6c | 65 2c 20 77 69 6e 64 6f |ndowTitl|e, windo|
|00001570| 77 4e 61 6d 65 2c 74 72 | 75 65 2c 20 28 2a 6d 79 |wName,tr|ue, (*my|
|00001580| 58 58 58 58 29 2d 3e 66 | 61 74 68 65 72 29 3b 0d |XXXX)->f|ather);.|
|00001590| 0d 09 2f 2a 20 53 61 76 | 65 20 74 68 65 20 6e 65 |../* Sav|e the ne|
|000015a0| 77 20 6e 61 6d 65 20 69 | 6e 20 6d 79 20 64 61 74 |w name i|n my dat|
|000015b0| 61 20 73 74 72 75 63 74 | 75 72 65 2e 20 2a 2f 0d |a struct|ure. */.|
|000015c0| 09 73 74 72 6e 63 70 79 | 28 28 2a 6d 79 58 58 58 |.strncpy|((*myXXX|
|000015d0| 58 29 2d 3e 6e 61 6d 65 | 2c 20 77 69 6e 64 6f 77 |X)->name|, window|
|000015e0| 4e 61 6d 65 2c 20 77 69 | 6e 64 6f 77 4e 61 6d 65 |Name, wi|ndowName|
|000015f0| 5b 30 5d 20 2b 20 31 29 | 3b 09 2f 2a 20 41 64 64 |[0] + 1)|;./* Add|
|00001600| 20 31 20 66 6f 72 20 74 | 68 65 20 6c 65 6e 67 74 | 1 for t|he lengt|
|00001610| 68 20 62 79 74 65 2e 20 | 2a 2f 0d 0d 09 53 65 74 |h byte. |*/...Set|
|00001620| 57 54 69 74 6c 65 28 28 | 2a 6d 79 58 58 58 58 29 |WTitle((|*myXXXX)|
|00001630| 2d 3e 77 69 6e 64 2c 20 | 77 69 6e 64 6f 77 54 69 |->wind, |windowTi|
|00001640| 74 6c 65 29 3b 09 2f 2a | 20 53 65 74 20 74 68 65 |tle);./*| Set the|
|00001650| 20 6e 65 77 20 77 69 6e | 64 6f 77 20 74 69 74 6c | new win|dow titl|
|00001660| 65 2e 20 2a 2f 0d 0d 09 | 2f 2a 20 4e 6f 77 2c 20 |e. */...|/* Now, |
|00001670| 6c 65 74 20 6f 75 72 20 | 66 61 74 68 65 72 20 6f |let our |father o|
|00001680| 62 6a 65 63 74 20 6b 6e | 6f 77 20 74 68 61 74 20 |bject kn|ow that |
|00001690| 6f 75 72 20 49 44 20 68 | 61 73 20 62 65 65 6e 20 |our ID h|as been |
|000016a0| 63 68 61 6e 67 65 64 20 | 2a 2f 0d 09 28 2a 66 61 |changed |*/..(*fa|
|000016b0| 74 68 65 72 29 2d 3e 72 | 65 62 75 69 6c 64 20 3d |ther)->r|ebuild =|
|000016c0| 20 74 72 75 65 3b 09 09 | 09 2f 2a 20 52 65 62 75 | true;..|./* Rebu|
|000016d0| 69 6c 64 20 74 68 65 20 | 70 69 63 6b 65 72 20 6c |ild the |picker l|
|000016e0| 69 73 74 2e 20 2a 2f 0d | 09 43 61 6c 6c 49 6e 66 |ist. */.|.CallInf|
|000016f0| 6f 55 70 64 61 74 65 28 | 6f 6c 64 49 44 2c 20 6e |oUpdate(|oldID, n|
|00001700| 65 77 49 44 2c 20 28 6c | 6f 6e 67 29 66 61 74 68 |ewID, (l|ong)fath|
|00001710| 65 72 2c 20 28 2a 66 61 | 74 68 65 72 29 2d 3e 77 |er, (*fa|ther)->w|
|00001720| 69 6e 64 2d 3e 77 69 6e | 64 6f 77 4b 69 6e 64 29 |ind->win|dowKind)|
|00001730| 3b 0d 09 48 55 6e 6c 6f | 63 6b 28 28 48 61 6e 64 |;..HUnlo|ck((Hand|
|00001740| 6c 65 29 6d 79 58 58 58 | 58 29 3b 0d 09 7d 0d 0d |le)myXXX|X);..}..|
|00001750| 2f 2a 2d 20 2d 20 20 2d | 20 20 2d 09 2d 20 2d 20 |/*- -  -|  -.- - |
|00001760| 20 2d 09 2d 20 20 2d 20 | 2d 09 2d 20 20 2d 20 20 | -.-  - |-.-  -  |
|00001770| 2d 20 2d 20 20 2d 20 20 | 2d 20 20 2d 20 2d 20 20 |- -  -  |-  - -  |
|00001780| 2d 20 20 2d 09 2d 20 2d | 20 20 2d 09 2d 2a 2f 0d |-  -.- -|  -.-*/.|
|00001790| 0d 70 61 73 63 61 6c 20 | 42 6f 6f 6c 65 61 6e 20 |.pascal |Boolean |
|000017a0| 49 73 54 68 69 73 59 6f | 75 72 73 28 48 61 6e 64 |IsThisYo|urs(Hand|
|000017b0| 6c 65 20 74 68 69 6e 67 | 2c 20 72 58 58 58 58 48 |le thing|, rXXXXH|
|000017c0| 61 6e 64 6c 65 20 6d 79 | 58 58 58 58 29 0d 09 7b |andle my|XXXX)..{|
|000017d0| 0d 09 72 65 74 75 72 6e | 20 28 74 68 69 6e 67 20 |..return| (thing |
|000017e0| 3d 3d 20 28 48 61 6e 64 | 6c 65 29 28 2a 6d 79 58 |== (Hand|le)(*myX|
|000017f0| 58 58 58 29 2d 3e 68 58 | 58 58 58 29 3b 0d 09 7d |XXX)->hX|XXX);..}|
|00001800| 0d 0d 2f 2a 2d 20 2d 20 | 20 2d 20 20 2d 09 2d 20 |../*- - | -  -.- |
|00001810| 2d 20 20 2d 09 2d 20 20 | 2d 20 2d 09 2d 20 20 2d |-  -.-  |- -.-  -|
|00001820| 20 20 2d 20 2d 20 20 2d | 20 20 2d 20 20 2d 20 2d |  - -  -|  -  - -|
|00001830| 20 20 2d 20 20 2d 09 2d | 20 2d 20 20 2d 09 2d 2a |  -  -.-| -  -.-*|
|00001840| 2f 0d 0d 2f 2a 20 09 43 | 6c 6f 73 65 20 64 6f 77 |/../* .C|lose dow|
|00001850| 6e 20 74 68 65 20 77 69 | 6e 64 6f 77 20 61 6e 64 |n the wi|ndow and|
|00001860| 20 67 65 74 20 72 69 64 | 20 6f 66 20 61 6e 79 20 | get rid| of any |
|00001870| 6d 65 6d 6f 72 79 20 74 | 68 61 74 20 68 61 73 20 |memory t|hat has |
|00001880| 62 65 65 6e 20 61 6c 6c | 6f 63 61 74 65 64 2e 0d |been all|ocated..|
|00001890| 09 52 65 74 75 72 6e 73 | 20 54 52 55 45 20 69 66 |.Returns| TRUE if|
|000018a0| 20 74 68 65 20 6f 70 65 | 72 61 74 69 6f 6e 20 77 | the ope|ration w|
|000018b0| 61 73 20 73 75 63 63 65 | 73 73 66 75 6c 2e 20 49 |as succe|ssful. I|
|000018c0| 66 20 6e 6f 74 52 65 76 | 65 72 74 20 69 73 20 66 |f notRev|ert is f|
|000018d0| 61 6c 73 65 20 74 68 65 | 20 72 65 73 6f 75 72 63 |alse the| resourc|
|000018e0| 65 20 69 73 6e 27 74 0d | 09 72 65 6c 65 61 73 65 |e isn't.|.release|
|000018f0| 64 20 61 6e 64 20 74 68 | 65 20 64 61 74 61 20 68 |d and th|e data h|
|00001900| 61 6e 64 6c 65 20 69 73 | 6e 27 74 20 64 69 73 70 |andle is|n't disp|
|00001910| 6f 73 65 64 20 28 74 68 | 6f 75 67 68 20 61 6c 6c |osed (th|ough all|
|00001920| 20 74 68 65 20 68 61 6e | 64 6c 65 73 20 69 74 20 | the han|dles it |
|00001930| 63 6f 6e 74 61 69 6e 73 | 0d 09 61 72 65 20 64 69 |contains|..are di|
|00001940| 73 70 6f 73 65 64 29 2e | 20 20 2a 2f 0d 73 74 61 |sposed).|  */.sta|
|00001950| 74 69 63 20 42 6f 6f 6c | 65 61 6e 20 44 6f 43 6c |tic Bool|ean DoCl|
|00001960| 6f 73 65 28 42 6f 6f 6c | 65 61 6e 20 6e 6f 74 52 |ose(Bool|ean notR|
|00001970| 65 76 65 72 74 2c 20 72 | 58 58 58 58 48 61 6e 64 |evert, r|XXXXHand|
|00001980| 6c 65 20 6d 79 58 58 58 | 58 29 0d 09 7b 0d 09 50 |le myXXX|X)..{..P|
|00001990| 61 73 73 4d 65 6e 75 20 | 28 66 69 6c 65 4d 65 6e |assMenu |(fileMen|
|000019a0| 75 2c 20 63 6c 6f 73 65 | 49 74 65 6d 2c 20 28 50 |u, close|Item, (P|
|000019b0| 61 72 65 6e 74 48 61 6e | 64 6c 65 29 6d 79 58 58 |arentHan|dle)myXX|
|000019c0| 58 58 29 3b 0d 09 69 66 | 20 28 57 61 73 41 62 6f |XX);..if| (WasAbo|
|000019d0| 72 74 65 64 28 29 29 0d | 09 09 7b 0d 09 09 72 65 |rted()).|..{...re|
|000019e0| 74 75 72 6e 20 66 61 6c | 73 65 3b 0d 09 09 7d 0d |turn fal|se;...}.|
|000019f0| 09 65 6c 73 65 0d 09 09 | 7b 0d 09 09 43 6c 6f 73 |.else...|{...Clos|
|00001a00| 65 57 69 6e 64 6f 77 28 | 28 2a 6d 79 58 58 58 58 |eWindow(|(*myXXXX|
|00001a10| 29 2d 3e 77 69 6e 64 29 | 3b 0d 09 09 57 69 6e 64 |)->wind)|;...Wind|
|00001a20| 52 65 74 75 72 6e 28 28 | 2a 6d 79 58 58 58 58 29 |Return((|*myXXXX)|
|00001a30| 2d 3e 77 69 6e 64 29 3b | 09 2f 2a 20 4d 61 72 6b |->wind);|./* Mark|
|00001a40| 20 74 68 65 20 77 69 6e | 64 6f 77 20 72 65 63 6f | the win|dow reco|
|00001a50| 72 64 20 61 73 20 62 65 | 69 6e 67 20 61 76 61 69 |rd as be|ing avai|
|00001a60| 6c 61 62 6c 65 20 2a 2f | 0d 09 09 53 65 74 54 68 |lable */|...SetTh|
|00001a70| 65 43 75 72 73 6f 72 28 | 61 72 72 6f 77 43 75 72 |eCursor(|arrowCur|
|00001a80| 73 6f 72 29 3b 09 2f 2a | 20 4d 61 6b 65 20 73 75 |sor);./*| Make su|
|00001a90| 72 65 20 74 68 65 20 63 | 75 72 73 6f 72 20 69 73 |re the c|ursor is|
|00001aa0| 20 74 68 65 20 61 72 72 | 6f 77 20 63 75 72 73 6f | the arr|ow curso|
|00001ab0| 72 20 2a 2f 0d 09 0d 09 | 09 2f 2a 20 44 65 6c 65 |r */....|./* Dele|
|00001ac0| 74 65 20 61 6e 79 20 6d | 65 6e 75 73 20 74 68 61 |te any m|enus tha|
|00001ad0| 74 20 77 65 20 61 64 64 | 65 64 20 61 6e 64 20 72 |t we add|ed and r|
|00001ae0| 65 64 72 61 77 20 74 68 | 65 20 6d 65 6e 75 20 62 |edraw th|e menu b|
|00001af0| 61 72 2e 09 2a 2f 0d 09 | 09 2f 2a 20 42 65 20 73 |ar..*/..|./* Be s|
|00001b00| 75 72 65 20 74 6f 20 64 | 69 73 70 6f 73 65 20 6f |ure to d|ispose o|
|00001b10| 66 20 61 6e 79 20 68 61 | 6e 64 6c 65 73 20 79 6f |f any ha|ndles yo|
|00001b20| 75 20 61 72 65 20 64 6f | 6e 65 20 77 69 74 68 2e |u are do|ne with.|
|00001b30| 09 09 2a 2f 0d 09 09 2f | 2a 20 52 65 6c 65 61 73 |..*/.../|* Releas|
|00001b40| 65 20 74 68 65 20 72 65 | 73 6f 75 72 63 65 20 69 |e the re|source i|
|00001b50| 66 20 77 65 20 77 65 72 | 65 20 6c 61 75 6e 63 68 |f we wer|e launch|
|00001b60| 65 64 20 66 72 6f 6d 20 | 61 20 70 69 63 6b 65 72 |ed from |a picker|
|00001b70| 2e 20 2a 2f 0d 09 09 69 | 66 20 28 28 6e 6f 74 52 |. */...i|f ((notR|
|00001b80| 65 76 65 72 74 29 20 26 | 26 20 28 28 2a 6d 79 58 |evert) &|& ((*myX|
|00001b90| 58 58 58 29 2d 3e 72 65 | 73 57 61 73 6e 74 4c 6f |XXX)->re|sWasntLo|
|00001ba0| 61 64 65 64 29 20 26 26 | 20 28 28 2a 28 28 2a 6d |aded) &&| ((*((*m|
|00001bb0| 79 58 58 58 58 29 2d 3e | 66 61 74 68 65 72 29 29 |yXXXX)->|father))|
|00001bc0| 2d 3e 77 69 6e 64 6f 77 | 54 79 70 65 20 21 3d 20 |->window|Type != |
|00001bd0| 65 64 69 74 6f 72 57 69 | 6e 64 6f 77 29 29 0d 09 |editorWi|ndow))..|
|00001be0| 09 09 52 65 6c 65 61 73 | 65 52 65 73 6f 75 72 63 |..Releas|eResourc|
|00001bf0| 65 28 28 48 61 6e 64 6c | 65 29 28 2a 6d 79 58 58 |e((Handl|e)(*myXX|
|00001c00| 58 58 29 2d 3e 68 58 58 | 58 58 29 3b 09 2f 2a 20 |XX)->hXX|XX);./* |
|00001c10| 4c 65 74 20 69 74 20 62 | 65 20 66 72 65 65 20 28 |Let it b|e free (|
|00001c20| 69 66 20 69 74 20 69 73 | 20 6e 6f 74 20 63 68 61 |if it is| not cha|
|00001c30| 6e 67 65 64 29 21 20 2a | 2f 0d 09 09 0d 09 09 69 |nged)! *|/......i|
|00001c40| 66 20 28 6e 6f 74 52 65 | 76 65 72 74 29 0d 09 09 |f (notRe|vert)...|
|00001c50| 09 44 69 73 70 6f 73 48 | 61 6e 64 6c 65 28 28 48 |.DisposH|andle((H|
|00001c60| 61 6e 64 6c 65 29 6d 79 | 58 58 58 58 29 3b 0d 09 |andle)my|XXXX);..|
|00001c70| 09 72 65 74 75 72 6e 20 | 74 72 75 65 3b 0d 09 09 |.return |true;...|
|00001c80| 7d 0d 09 7d 0d 0d 2f 2a | 2d 20 2d 20 20 2d 20 20 |}..}../*|- -  -  |
|00001c90| 2d 09 2d 20 2d 20 20 2d | 09 2d 20 20 2d 20 2d 09 |-.- -  -|.-  - -.|
|00001ca0| 2d 20 20 2d 20 20 2d 20 | 2d 20 20 2d 20 20 2d 20 |-  -  - |-  -  - |
|00001cb0| 20 2d 20 2d 20 20 2d 20 | 20 2d 09 2d 20 2d 20 20 | - -  - | -.- -  |
|00001cc0| 2d 09 2d 2a 2f 0d 0d 70 | 61 73 63 61 6c 20 76 6f |-.-*/..p|ascal vo|
|00001cd0| 69 64 20 44 6f 4d 65 6e | 75 28 73 68 6f 72 74 20 |id DoMen|u(short |
|00001ce0| 6d 65 6e 75 2c 20 73 68 | 6f 72 74 20 69 74 65 6d |menu, sh|ort item|
|00001cf0| 2c 20 72 58 58 58 58 48 | 61 6e 64 6c 65 20 6d 79 |, rXXXXH|andle my|
|00001d00| 58 58 58 58 29 0d 09 7b | 0d 0d 09 42 75 62 62 6c |XXXX)..{|...Bubbl|
|00001d10| 65 55 70 28 28 48 61 6e | 64 6c 65 29 6d 79 58 58 |eUp((Han|dle)myXX|
|00001d20| 58 58 29 3b 0d 09 48 4c | 6f 63 6b 28 28 48 61 6e |XX);..HL|ock((Han|
|00001d30| 64 6c 65 29 6d 79 58 58 | 58 58 29 3b 0d 09 53 65 |dle)myXX|XX);..Se|
|00001d40| 74 50 6f 72 74 28 28 2a | 6d 79 58 58 58 58 29 2d |tPort((*|myXXXX)-|
|00001d50| 3e 77 69 6e 64 29 3b 09 | 09 09 09 09 2f 2a 20 53 |>wind);.|..../* S|
|00001d60| 65 74 20 74 68 65 20 70 | 6f 72 74 20 74 6f 20 6f |et the p|ort to o|
|00001d70| 75 72 20 77 69 6e 64 6f | 77 20 2a 2f 0d 0d 09 2f |ur windo|w */.../|
|00001d80| 2a 20 41 67 61 69 6e 2c | 20 77 65 20 68 61 6e 64 |* Again,| we hand|
|00001d90| 6c 65 20 74 68 65 20 6d | 65 6e 75 20 73 74 75 66 |le the m|enu stuf|
|00001da0| 66 20 6a 75 73 74 20 61 | 73 20 77 65 20 77 6f 75 |f just a|s we wou|
|00001db0| 6c 64 20 69 6e 20 61 20 | 27 72 65 61 6c 27 20 61 |ld in a |'real' a|
|00001dc0| 70 70 6c 69 63 61 74 69 | 6f 6e 09 2a 2f 0d 09 2f |pplicati|on.*/../|
|00001dd0| 2a 20 65 78 63 65 70 74 | 20 74 68 61 74 20 77 65 |* except| that we|
|00001de0| 20 6f 6e 6c 79 20 68 61 | 76 65 20 74 6f 20 68 61 | only ha|ve to ha|
|00001df0| 6e 64 6c 65 20 74 68 6f | 73 65 20 69 74 65 6d 73 |ndle tho|se items|
|00001e00| 20 74 68 61 74 20 61 70 | 70 6c 79 20 74 6f 20 6f | that ap|ply to o|
|00001e10| 75 72 20 65 64 69 74 6f | 72 2e 09 2a 2f 0d 09 09 |ur edito|r..*/...|
|00001e20| 0d 09 73 77 69 74 63 68 | 20 28 6d 65 6e 75 29 0d |..switch| (menu).|
|00001e30| 09 09 7b 0d 09 09 63 61 | 73 65 20 66 69 6c 65 4d |..{...ca|se fileM|
|00001e40| 65 6e 75 3a 0d 09 09 09 | 73 77 69 74 63 68 20 28 |enu:....|switch (|
|00001e50| 69 74 65 6d 29 0d 09 09 | 09 09 7b 0d 09 09 09 09 |item)...|..{.....|
|00001e60| 63 61 73 65 20 63 6c 6f | 73 65 49 74 65 6d 3a 0d |case clo|seItem:.|
|00001e70| 09 09 09 09 09 69 66 20 | 28 44 6f 43 6c 6f 73 65 |.....if |(DoClose|
|00001e80| 28 74 72 75 65 2c 20 6d | 79 58 58 58 58 29 29 09 |(true, m|yXXXX)).|
|00001e90| 2f 2a 20 43 6c 6f 73 65 | 20 6f 75 72 20 77 69 6e |/* Close| our win|
|00001ea0| 64 6f 77 09 09 09 09 09 | 09 2a 2f 0d 09 09 09 09 |dow.....|.*/.....|
|00001eb0| 09 09 7b 0d 09 09 09 09 | 09 09 72 65 74 75 72 6e |..{.....|..return|
|00001ec0| 3b 09 09 09 09 09 2f 2a | 20 52 65 74 75 72 6e 20 |;...../*| Return |
|00001ed0| 69 6d 6d 65 64 69 61 74 | 65 6c 79 20 73 69 6e 63 |immediat|ely sinc|
|00001ee0| 65 20 6f 75 72 20 72 65 | 73 6f 75 72 63 65 20 69 |e our re|source i|
|00001ef0| 73 20 67 6f 6e 65 21 20 | 2a 2f 0d 09 09 09 09 09 |s gone! |*/......|
|00001f00| 09 7d 0d 09 09 09 09 09 | 62 72 65 61 6b 3b 0d 0d |.}......|break;..|
|00001f10| 09 09 09 09 63 61 73 65 | 20 73 61 76 65 49 74 65 |....case| saveIte|
|00001f20| 6d 3a 09 09 09 09 2f 2a | 20 50 61 73 73 20 74 68 |m:..../*| Pass th|
|00001f30| 65 20 73 61 76 65 20 6f | 6e 20 74 6f 20 6f 74 68 |e save o|n to oth|
|00001f40| 65 72 20 77 69 6e 64 6f | 77 73 2e 09 2a 2f 0d 09 |er windo|ws..*/..|
|00001f50| 09 09 09 09 50 61 73 73 | 4d 65 6e 75 28 66 69 6c |....Pass|Menu(fil|
|00001f60| 65 4d 65 6e 75 2c 73 61 | 76 65 49 74 65 6d 2c 20 |eMenu,sa|veItem, |
|00001f70| 28 50 61 72 65 6e 74 48 | 61 6e 64 6c 65 29 6d 79 |(ParentH|andle)my|
|00001f80| 58 58 58 58 29 3b 0d 09 | 09 09 09 09 62 72 65 61 |XXXX);..|....brea|
|00001f90| 6b 3b 0d 0d 09 09 09 09 | 63 61 73 65 20 70 72 69 |k;......|case pri|
|00001fa0| 6e 74 49 74 65 6d 3a 0d | 09 09 09 09 09 50 72 69 |ntItem:.|.....Pri|
|00001fb0| 6e 74 57 69 6e 64 6f 77 | 28 6e 69 6c 29 3b 0d 09 |ntWindow|(nil);..|
|00001fc0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 7d |....brea|k;.....}|
|00001fd0| 0d 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 63 61 73 |....brea|k;...cas|
|00001fe0| 65 20 72 73 72 63 4d 65 | 6e 75 3a 0d 09 09 09 73 |e rsrcMe|nu:....s|
|00001ff0| 77 69 74 63 68 28 69 74 | 65 6d 29 0d 09 09 09 09 |witch(it|em).....|
|00002000| 7b 0d 09 09 09 09 63 61 | 73 65 20 72 73 72 63 52 |{.....ca|se rsrcR|
|00002010| 65 76 65 72 74 49 74 65 | 6d 3a 0d 09 09 09 09 09 |evertIte|m:......|
|00002020| 69 66 20 28 4e 65 65 64 | 54 6f 52 65 76 65 72 74 |if (Need|ToRevert|
|00002030| 28 28 2a 6d 79 58 58 58 | 58 29 2d 3e 77 69 6e 64 |((*myXXX|X)->wind|
|00002040| 2c 20 28 48 61 6e 64 6c | 65 29 28 2a 6d 79 58 58 |, (Handl|e)(*myXX|
|00002050| 58 58 29 2d 3e 68 58 58 | 58 58 29 29 0d 09 09 09 |XX)->hXX|XX))....|
|00002060| 09 09 09 7b 0d 09 09 09 | 09 09 09 2f 2a 20 54 68 |...{....|.../* Th|
|00002070| 65 20 61 72 65 61 20 75 | 6e 64 65 72 20 74 68 65 |e area u|nder the|
|00002080| 20 77 69 6e 64 6f 77 20 | 77 69 6c 6c 20 6e 65 65 | window |will nee|
|00002090| 64 20 74 6f 20 62 65 20 | 75 70 64 61 74 65 64 20 |d to be |updated |
|000020a0| 09 2a 2f 0d 09 09 09 09 | 09 09 49 6e 76 61 6c 52 |.*/.....|..InvalR|
|000020b0| 65 63 74 28 26 28 2a 6d | 79 58 58 58 58 29 2d 3e |ect(&(*m|yXXXX)->|
|000020c0| 77 69 6e 64 2d 3e 70 6f | 72 74 52 65 63 74 29 3b |wind->po|rtRect);|
|000020d0| 0d 09 09 0d 09 09 09 09 | 09 09 2f 2a 20 52 65 61 |........|../* Rea|
|000020e0| 64 20 69 6e 20 74 68 65 | 20 6f 6c 64 20 63 6f 70 |d in the| old cop|
|000020f0| 79 20 66 72 6f 6d 20 64 | 69 73 6b 20 28 73 65 65 |y from d|isk (see|
|00002100| 20 64 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 20 66 | documen|tation f|
|00002110| 6f 72 20 72 65 76 65 72 | 74 52 65 73 6f 75 72 63 |or rever|tResourc|
|00002120| 65 29 09 2a 2f 0d 09 09 | 09 09 09 09 2f 2a 20 43 |e).*/...|..../* C|
|00002130| 6c 65 61 72 20 69 74 20 | 6f 75 74 20 75 6e 6c 65 |lear it |out unle|
|00002140| 73 73 20 74 68 69 73 20 | 77 61 73 20 61 20 6e 65 |ss this |was a ne|
|00002150| 77 6c 79 20 63 72 65 61 | 74 65 64 20 72 65 73 6f |wly crea|ted reso|
|00002160| 75 72 63 65 09 2a 2f 0d | 09 09 09 09 09 09 69 66 |urce.*/.|......if|
|00002170| 20 28 21 52 65 76 65 72 | 74 54 68 69 73 52 65 73 | (!Rever|tThisRes|
|00002180| 6f 75 72 63 65 28 28 50 | 61 72 65 6e 74 48 61 6e |ource((P|arentHan|
|00002190| 64 6c 65 29 6d 79 58 58 | 58 58 2c 20 28 48 61 6e |dle)myXX|XX, (Han|
|000021a0| 64 6c 65 29 28 2a 6d 79 | 58 58 58 58 29 2d 3e 68 |dle)(*my|XXXX)->h|
|000021b0| 58 58 58 58 29 29 0d 09 | 09 09 09 09 09 09 7b 0d |XXXX))..|......{.|
|000021c0| 09 09 09 09 09 09 09 2f | 2a 20 54 68 65 20 72 65 |......./|* The re|
|000021d0| 73 6f 75 72 63 65 20 77 | 61 73 20 6e 65 77 6c 79 |source w|as newly|
|000021e0| 20 61 64 64 65 64 20 73 | 6f 20 77 65 20 6e 65 65 | added s|o we nee|
|000021f0| 64 20 74 6f 20 72 65 6d | 6f 76 65 20 69 74 2e 2a |d to rem|ove it.*|
|00002200| 2f 0d 09 09 0d 09 09 09 | 09 09 09 09 2f 2a 20 4d |/.......|..../* M|
|00002210| 61 6b 65 20 73 75 72 65 | 20 74 68 61 74 20 74 68 |ake sure| that th|
|00002220| 65 20 70 69 63 6b 65 72 | 20 6c 69 73 74 20 69 73 |e picker| list is|
|00002230| 20 72 65 62 75 69 6c 74 | 20 74 6f 20 72 65 6d 6f | rebuilt| to remo|
|00002240| 76 65 20 74 68 69 73 20 | 69 74 65 6d 2e 20 09 09 |ve this |item. ..|
|00002250| 09 09 09 09 09 09 09 09 | 2a 2f 0d 09 09 09 09 09 |........|*/......|
|00002260| 09 09 28 2a 28 28 2a 6d | 79 58 58 58 58 29 2d 3e |..(*((*m|yXXXX)->|
|00002270| 66 61 74 68 65 72 29 29 | 2d 3e 72 65 62 75 69 6c |father))|->rebuil|
|00002280| 64 20 3d 20 74 72 75 65 | 3b 0d 09 09 0d 09 09 09 |d = true|;.......|
|00002290| 09 09 09 09 69 66 20 28 | 44 6f 43 6c 6f 73 65 28 |....if (|DoClose(|
|000022a0| 66 61 6c 73 65 2c 20 6d | 79 58 58 58 58 29 29 09 |false, m|yXXXX)).|
|000022b0| 2f 2a 20 43 6c 6f 73 65 | 20 74 68 65 20 77 69 6e |/* Close| the win|
|000022c0| 64 6f 77 2e 09 09 09 2a | 2f 0d 09 09 09 09 09 09 |dow....*|/.......|
|000022d0| 09 09 7b 0d 09 09 09 09 | 09 09 09 09 52 45 52 65 |..{.....|....RERe|
|000022e0| 6d 6f 76 65 41 6e 79 52 | 65 73 6f 75 72 63 65 28 |moveAnyR|esource(|
|000022f0| 28 2a 6d 79 58 58 58 58 | 29 2d 3e 74 68 65 52 65 |(*myXXXX|)->theRe|
|00002300| 73 46 69 6c 65 2c 20 28 | 2a 6d 79 58 58 58 58 29 |sFile, (|*myXXXX)|
|00002310| 2d 3e 68 58 58 58 58 29 | 3b 09 2f 2a 20 44 69 73 |->hXXXX)|;./* Dis|
|00002320| 70 6f 73 65 20 74 68 65 | 20 72 65 73 6f 75 72 63 |pose the| resourc|
|00002330| 65 20 69 74 73 65 6c 66 | 2e 20 2a 2f 0d 09 09 09 |e itself|. */....|
|00002340| 09 09 09 09 09 44 69 73 | 70 6f 73 48 61 6e 64 6c |.....Dis|posHandl|
|00002350| 65 28 28 48 61 6e 64 6c | 65 29 6d 79 58 58 58 58 |e((Handl|e)myXXXX|
|00002360| 29 3b 0d 09 09 09 09 09 | 09 09 09 72 65 74 75 72 |);......|...retur|
|00002370| 6e 3b 09 09 09 09 09 2f | 2a 20 53 69 6e 63 65 20 |n;...../|* Since |
|00002380| 74 68 65 20 72 65 73 6f | 75 72 63 65 20 69 73 20 |the reso|urce is |
|00002390| 67 6f 6e 65 2e 09 2a 2f | 0d 09 09 09 09 09 09 09 |gone..*/|........|
|000023a0| 09 7d 0d 09 09 09 09 09 | 09 09 7d 0d 09 09 09 09 |.}......|..}.....|
|000023b0| 09 09 7d 0d 09 09 09 09 | 09 62 72 65 61 6b 3b 0d |..}.....|.break;.|
|000023c0| 0d 09 09 09 09 63 61 73 | 65 20 72 73 72 63 47 65 |.....cas|e rsrcGe|
|000023d0| 74 49 6e 66 6f 49 74 65 | 6d 3a 09 09 2f 2a 20 53 |tInfoIte|m:../* S|
|000023e0| 68 6f 77 20 47 65 74 49 | 6e 66 6f 20 77 69 6e 64 |how GetI|nfo wind|
|000023f0| 6f 77 20 2a 2f 0d 09 09 | 09 09 09 53 68 6f 77 49 |ow */...|...ShowI|
|00002400| 6e 66 6f 28 28 48 61 6e | 64 6c 65 29 28 2a 6d 79 |nfo((Han|dle)(*my|
|00002410| 58 58 58 58 29 2d 3e 68 | 58 58 58 58 2c 28 50 61 |XXXX)->h|XXXX,(Pa|
|00002420| 72 65 6e 74 48 61 6e 64 | 6c 65 29 6d 79 58 58 58 |rentHand|le)myXXX|
|00002430| 58 29 3b 0d 09 09 09 09 | 09 62 72 65 61 6b 3b 0d |X);.....|.break;.|
|00002440| 09 09 09 09 7d 0d 09 09 | 09 62 72 65 61 6b 3b 0d |....}...|.break;.|
|00002450| 09 09 63 61 73 65 20 65 | 64 69 74 4d 65 6e 75 3a |..case e|ditMenu:|
|00002460| 09 09 09 2f 2a 20 49 6d | 70 6c 65 6d 65 6e 74 20 |.../* Im|plement |
|00002470| 74 68 65 20 65 64 69 74 | 20 6d 65 6e 75 20 68 65 |the edit| menu he|
|00002480| 72 65 09 2a 2f 0d 09 09 | 09 73 77 69 74 63 68 20 |re.*/...|.switch |
|00002490| 28 69 74 65 6d 29 0d 09 | 09 09 09 7b 0d 09 09 09 |(item)..|...{....|
|000024a0| 09 63 61 73 65 20 63 75 | 74 49 74 65 6d 3a 0d 09 |.case cu|tItem:..|
|000024b0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 63 |....brea|k;.....c|
|000024c0| 61 73 65 20 63 6f 70 79 | 49 74 65 6d 3a 0d 09 09 |ase copy|Item:...|
|000024d0| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 09 63 61 |...break|;.....ca|
|000024e0| 73 65 20 70 61 73 74 65 | 49 74 65 6d 3a 0d 09 09 |se paste|Item:...|
|000024f0| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 09 63 61 |...break|;.....ca|
|00002500| 73 65 20 63 6c 65 61 72 | 49 74 65 6d 3a 0d 09 09 |se clear|Item:...|
|00002510| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 09 7d 0d |...break|;.....}.|
|00002520| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 7d 0d 09 48 |...break|;...}..H|
|00002530| 55 6e 6c 6f 63 6b 28 28 | 48 61 6e 64 6c 65 29 6d |Unlock((|Handle)m|
|00002540| 79 58 58 58 58 29 3b 0d | 09 7d 0d 0d 00 00 00 00 |yXXXX);.|.}......|
|00002550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002580| 00 00 01 00 00 00 01 8c | 00 00 00 8c 00 00 00 52 |........|.......R|
|00002590| 61 6d 20 6b 6e 6f 77 20 | 77 68 6f 20 69 73 20 74 |am know |who is t|
|000025a0| 6f 20 6d 61 6e 61 67 65 | 20 74 68 69 73 20 77 69 |o manage| this wi|
|000025b0| 0b 58 58 58 58 2e 45 64 | 69 74 2e 63 02 00 00 00 |.XXXX.Ed|it.c....|
|000025c0| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|000025d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 a9 8f d2 65 00 00 | 00 00 00 00 01 de 20 68 |.....e..|...... h|
|00002600| 61 6e 64 6c 65 2e 09 09 | 7d 0d 09 09 09 09 57 49 |andle...|}.....WI|
|00002610| 54 48 20 57 69 6e 64 6f | 77 50 65 65 6b 28 6d 79 |TH Windo|wPeek(my|
|00002620| 57 69 6e 64 6f 77 29 5e | 20 44 4f 0d 09 09 09 09 |Window)^| DO.....|
|00002630| 09 42 45 47 49 4e 0d 09 | 09 09 09 09 77 69 6e 64 |.BEGIN..|....wind|
|00002640| 6f 77 4b 69 6e 64 20 3a | 3d 20 52 65 73 45 64 49 |owKind :|= ResEdI|
|00002650| 44 3b 0d 09 09 09 09 09 | 72 65 66 43 6f 6e 20 3a |D;......|refCon :|
|00002660| 3d 20 4f 52 44 28 6d 79 | 58 58 58 58 29 3b 0d 09 |= ORD(my|XXXX);..|
|00002670| 09 09 09 09 45 4e 44 3b | 20 7b 57 49 54 48 7d 0d |....END;| {WITH}.|
|00002680| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 39 38 35 |...H..Mo|naco.985|
|00002690| 2d 31 39 38 39 0d 41 6c | 6c 20 72 69 67 68 74 73 |-1989.Al|l rights|
|000026a0| 20 72 65 73 65 72 00 06 | 00 04 00 2a 00 03 01 42 | reser..|...*...B|
|000026b0| 01 e3 00 2a 00 03 01 42 | 01 e3 a4 9f 55 c0 00 00 |...*...B|....U...|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|000026d0| 00 2a 00 03 01 42 01 e3 | 00 2a 00 03 01 42 01 e3 |.*...B..|.*...B..|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 1a 02 11 80 00 00 00 | 05 32 2e 31 2e 31 0d 52 |........|.2.1.1.R|
|00002700| 65 73 45 64 69 74 20 32 | 2e 31 2e 31 00 00 01 00 |esEdit 2|.1.1....|
|00002710| 00 00 01 8c 00 00 00 8c | 00 00 00 52 00 22 e8 78 |........|...R.".x|
|00002720| 04 6a 00 00 00 1c 00 52 | 00 01 4d 50 53 52 00 01 |.j.....R|..MPSR..|
|00002730| 00 12 76 65 72 73 00 00 | 00 2a 03 ed ff ff 00 00 |..vers..|.*......|
|00002740| 00 00 00 00 00 00 03 f0 | ff ff 00 00 00 4c 00 00 |........|.....L..|
|00002750| 00 00 00 02 ff ff 20 00 | 00 6e 00 22 e7 ac 00 00 |...... .|.n."....|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+